Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №20

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №20 Лабораторна робота №20. Тема: Програмування об'єктів. Мета: Ознайомлення з принципами об'єктно-орієнтованого програмування. Вивчити питання: Основні поняття ООП. Об'єкт, його властивості. Опис об'єкту. Правила. Статичні та динамічні об'єкти. Наслідування. Віртуальні правила. Конструктори та деструктори. Таблиця віртуальних правил. Приклад використання ООП. Завдання до роботи: Скласти програму на мові Pascal для розв'язування завдання лабораторної роботи №17 з використанням типу даних «об'єкт». Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. ХІД РОБОТИ uses crt,graph; var x0,a:integer; type trg=object x,y,r,c:integer; procedure init(ax,ay,ar,ac:integer); procedure postr; procedure show; procedure hide; procedure move(dy:integer); end; procedure trg.init; begin x:=ax; y:=ay; r:=ar; c:=ac; end; procedure trg.postr; var ax,ay,bx,by,cx,cy:integer; begin ax:=x;ay:=y-r; bx:=x-round(r*cos(pi/6));by:=y+round(r*sin(pi/6)); cx:=x+round(r*cos(pi/6));cy:=y+round(r*sin(pi/6)); line(ax,ay,bx,by); line(bx,by,cx,cy); line(cx,cy,ax,ay); end; procedure trg.show; begin setcolor(c); postr; end; procedure trg.hide; begin setcolor(getbkcolor); postr; end; procedure trg.move; begin hide; y:=y+dy; x:=x0-round(sin(y*pi/180)*a); show; delay(10); end; var t:trg; x,y,r,dy:integer; begin x:=0; initgraph(x,y,''); x0:=getmaxX div 2; a:=100; r:=10; t.x:=getmaxX div 2; t.y:=r; t.init(x,y,r,14); while t.y+r<getmaxY do t.move(1); while t.y-r>0 do t.move(-1); readln end. / / ВИСНОВОК За допомогою даної лабораторної роботи я ознайомилася з принципами об'єктно-орієнтованого програмування.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини